home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utilsys / smsrc.lha / SMSrc / CStrConstPtr.pas < prev    next >
Pascal/Delphi Source File  |  1995-07-11  |  316b  |  25 lines
  1. Unit CstrConstPtr;
  2.  
  3. INTERFACE
  4.  
  5. USES 
  6.     Intuition, Exec;
  7.  
  8. Function CSCPAR(rk : ppRemember; s : String) : STRPTR;
  9.  
  10. IMPLEMENTATION
  11.  
  12. function CSCPAR;
  13.  
  14. VAR
  15.     p : STRPTR;
  16.     
  17. begin
  18.   s := s + #0;
  19.   p := AllocRemember(rk, length(s), MEMF_CLEAR);
  20.   if p <> NIL then
  21.       move(s[1], p^, length(s));
  22.   CSCPAR := p;
  23. end;
  24.  
  25. End. {unit}